!{\src2tex{textfont=tt}}
!!****m* ABINIT/defs_basis
!! NAME
!! defs_basis
!!
!! FUNCTION
!! This module contains definitions for a number of named constants and
!! physical constants, as well as associated datatypes and methods.
!!
!! COPYRIGHT
!! Copyright (C) 2000-2020 ABINIT group (HM, XG,XW, EB)
!! This file is distributed under the terms of the
!! GNU General Public License, see ~abinit/COPYING
!! or http://www.gnu.org/copyleft/gpl.txt .
!!
!! NOTES
!! Of the named constants,
!! by far the most important are those that define the 'kind' types of
!! virtually all the variables used in a (well-written) FORTRAN 90 code
!! the content of this file is derived from 'Numerical Recipes in Fortran 90'
!! W.H. Press et al., volume 2 of 'Fortran Numerical Recipes', Cambridge
!! University Press, Second Edition (1996), p. 937 and 1361
!!
!! SOURCE

#if defined HAVE_CONFIG_H
#include "config.h"
#endif

module defs_basis

!#ifdef HAVE_FC_ISO_FORTRAN_2008
! use ISO_FORTRAN_ENV, only : input_unit, output_unit, error_unit
!#endif

 implicit none

!Keyword 'integer' stands for default integer type
!and may be used whenever integer are presumed to be small

!nb of bytes related to an integer subtype n such as -10^(argument) < n < 10^(argument) (this is standard F90)
 integer, parameter :: i1b=selected_int_kind(2)
 integer, parameter :: i2b=selected_int_kind(4)
 integer, parameter :: i4b=selected_int_kind(9)
 integer, parameter :: i8b=selected_int_kind(18)

!nb of bytes related to default simple-precision real/complex subtypes
!(= 4 for many machine architectures, = 8 for e.g. Cray)
 integer, parameter :: sp=kind(1.0)          ! Single precision should not be used
 integer, parameter :: spc=kind((1.0,1.0))

!nb of bytes related to default double-precision real/complex subtypes
!(= 8 for many machine architectures)
 integer, parameter :: dp=kind(1.0d0)
 integer, parameter :: dpc=kind((1.0_dp,1.0_dp))  ! Complex should not be used presently
                                                  ! except for use of libraries

!nb of bytes related to GW arrays, that can be tuned from sp to dp independently
!of other variables in ABINIT. Presently single-precision is the default (see config/specs/options.conf)..
#if defined HAVE_GW_DPC
 integer, parameter :: gwp=kind(1.0d0)
 integer, parameter :: gwpc=kind((1.0_dp,1.0_dp))

#else
 integer, parameter :: gwp=kind(1.0)
 integer, parameter :: gwpc=kind((1.0,1.0))
#endif

!Example:
! integer, parameter :: urp=selected_real_kind((p=)12,(r=)50)
! real((kind=)urp) :: d
! d=5.04876_urp   ! for a real d with 12 significative digits
! and such as 10^-50 < |d| < 10^50

!To modify sp/spc and / or dp/dpc, insert instructions such as 'dp='
! but do not modify the other declarations in this module

!The default lengths
! TODO: We should increase fnlen to be able to handle multiple pseudos paths in the input file
! but it seems that increasing this value triggers bugs in the rest of code because people
! do not trim input strings and use character(len=500) :: msg

 integer, parameter :: fnlen=264     ! maximum length of file name variables
 integer, parameter :: strlen=2000000 ! maximum length of input string

 ! The input file used to run the code, set by parsefile.
 ! It will be added to the netcdf files in ntck_open_create
 character(len=strlen), save :: INPUT_STRING = ""

 integer, parameter :: md5_slen = 32 ! lenght of strings storing the pseudos' md5 checksum.
 character(len=md5_slen),parameter :: md5_none = "None"

!Some constants:

! UNIX unit numbers: standard input, standard output, ab_out, and a number for temporary access to a file.
! Please, use these named constants instead of write(*,*),
! it makes the code more readable and easier to change.

!Default values
 !integer, parameter :: std_in = input_unit
 !integer, parameter :: ab_in = input_unit
 !integer, parameter :: std_out_default = output_unit
 !integer, parameter :: ab_out_default=7
 !integer, parameter :: std_err = error_unit
 integer, parameter :: std_in=5
 integer, parameter :: ab_in=5
 integer, parameter :: std_out_default=6
 integer, parameter :: ab_out_default=7    ! TODO: This should be initialized at run-time.
 integer, parameter :: std_err=0

 integer, parameter :: dev_null=-1       ! Fake unit number used to skip the printing in wrtout.
 integer, parameter :: ab_xml_out = 50   ! this unit is used to print output into an XML file
 integer, parameter :: tmp_unit=9,tmp_unit2=10

!These vars should be private and only modifiable via an appropriate method (see below)
 integer, public, save :: ab_out = ab_out_default
 integer, public, save :: std_out =  std_out_default
!It should be put to xmpi_world (but it is not possible for the moment - v6.9)
 integer, public, save :: abinit_comm_output = -1 !This default value has to be changed at start !!!

! the maximum length of a record in a file connected for sequential access.
 integer,public,parameter :: ABI_RECL=524288  ! 2**19

 integer,public,parameter :: MAX_NSHIFTK = 210
 ! Maximun number of shifts in input k-mesh.

!Real constants
 real(dp), parameter :: zero=0._dp
 real(dp), parameter :: one=1._dp
 real(dp), parameter :: two=2._dp
 real(dp), parameter :: three=3._dp
 real(dp), parameter :: four=4._dp
 real(dp), parameter :: five=5._dp
 real(dp), parameter :: six=6._dp
 real(dp), parameter :: seven=7._dp
 real(dp), parameter :: eight=8._dp
 real(dp), parameter :: nine=9._dp
 real(dp), parameter :: ten=10._dp

!Fractionary real constants
 real(dp), parameter :: half=0.50_dp
 real(dp), parameter :: onehalf=1.50_dp
 real(dp), parameter :: third=one/three
 real(dp), parameter :: quarter=0.25_dp
 real(dp), parameter :: fifth=0.20_dp
 real(dp), parameter :: sixth=one/six
 real(dp), parameter :: seventh=one/seven
 real(dp), parameter :: eighth=0.125_dp
 real(dp), parameter :: ninth=one/nine
 real(dp), parameter :: two_thirds=two*third
 real(dp), parameter :: four_thirds=four*third
 real(dp), parameter :: five_thirds=five*third
 real(dp), parameter :: three_quarters=0.75_dp
 real(dp), parameter :: three_fifth=three/five

!Real constants related to the golden number
 real(dp), parameter :: gold=1.618033988749894848204586834365638117720309179_dp
 real(dp), parameter :: goldenratio=two-gold

!Real constants derived from pi
 real(dp), parameter :: pi=3.141592653589793238462643383279502884197_dp
 real(dp), parameter :: two_pi=two*pi
 real(dp), parameter :: four_pi=four*pi
 real(dp), parameter :: piinv=one/pi
!The following are not used
!real(dp), parameter :: rad_to_deg=180._dp/pi
!real(dp), parameter :: deg_to_rad=one/rad_to_deg
!real(dp), parameter :: half_pi=pi*half
!real(dp), parameter :: third_pi=pi*third
!real(dp), parameter :: quarter_pi=pi*quarter
!real(dp), parameter :: two_thirds_pi=two_thirds*pi


!Real precision
 real(dp), parameter :: greatest_real = huge(one)
 real(dp), parameter :: smallest_real = -greatest_real
 real(dp), parameter :: tol1= 0.1_dp
 real(dp), parameter :: tol2= 0.01_dp
 real(dp), parameter :: tol3= 0.001_dp
 real(dp), parameter :: tol4= 0.0001_dp
 real(dp), parameter :: tol5= 0.00001_dp
 real(dp), parameter :: tol6= 0.000001_dp
 real(dp), parameter :: tol7= 0.0000001_dp
 real(dp), parameter :: tol8= 0.00000001_dp
 real(dp), parameter :: tol9= 0.000000001_dp
 real(dp), parameter :: tol10=0.0000000001_dp
 real(dp), parameter :: tol11=0.00000000001_dp
 real(dp), parameter :: tol12=0.000000000001_dp
 real(dp), parameter :: tol13=0.0000000000001_dp
 real(dp), parameter :: tol14=0.00000000000001_dp
 real(dp), parameter :: tol15=0.000000000000001_dp
 real(dp), parameter :: tol16=0.0000000000000001_dp
 real(dp), parameter :: tol20=0.00000000000000000001_dp
 real(dp), parameter :: tol30=1.0d-30

!real constants derived from sqrt(n.)
 real(dp), parameter :: sqrt2=1.4142135623730950488016887242096939_dp
 real(dp), parameter :: half_sqrt2=0.70710678118654752440084436210484697_dp
 real(dp), parameter :: sqrt3=1.7320508075688772935274463415058739_dp
 real(dp), parameter :: half_sqrt3=0.86602540378443864676372317075293693_dp
 real(dp), parameter :: sqrthalf=0.70710678118654752440084436210484697_dp

!Conversion factors of common use, not directly related to physical quantities.
 real(dp), parameter :: b2Mb=one/1024.0_dp**2  ! conversion factor bytes --> Mbytes
 real(dp), parameter :: b2Gb=b2Mb/1024.0_dp    ! conversion factor bytes --> Gbytes

 ! This value is used as sentinel to initialize real values that are "undefined" i.e.
 ! values that cannot be computed or values that do not make any sense in a particular context
 ! e.g. stress tensor in NSCF calculations. The sentinel is used the yaml routines to print "undef" instead of the
 ! numerical value.
 real(dp),parameter :: MAGIC_UNDEF = 9.9999999999D+99

!Real physical constants
!Revised fundamental constants from http://physics.nist.gov/cuu/Constants/index.html
!(from 2006 least squares adjustment)
 real(dp), parameter :: Bohr_Ang=0.52917720859_dp    ! 1 Bohr, in Angstrom
 real(dp), parameter :: Ang_Bohr = one / Bohr_Ang  ! 1 Angstrom in Bohr
 real(dp), parameter :: Bohr_meter=Bohr_Ang * 1.d-10 ! 1 Bohr in meter
 real(dp), parameter :: Ha_cmm1=219474.6313705_dp  ! 1 Hartree, in cm^-1
 real(dp), parameter :: Ha_eV=27.21138386_dp ! 1 Hartree, in eV
 real(dp), parameter :: eV_Ha=one/Ha_eV      ! 1 eV in Hartree
 real(dp), parameter :: Ha_meV=Ha_eV*1000_dp ! 1 Hartree, in meV
 real(dp), parameter :: Ha_K=315774.65_dp ! 1Hartree, in Kelvin
 real(dp), parameter :: Ha_THz=6579.683920722_dp ! 1 Hartree, in THz
 real(dp), parameter :: Ha_s=Ha_THz*1e12*two_pi ! 1 Hartree, in s
 real(dp), parameter :: Ha_J=4.35974394d-18    !1 Hartree, in J
 real(dp), parameter :: e_Cb=1.602176487d-19 ! minus the electron charge, in Coulomb
 real(dp), parameter :: kb_HaK=8.617343d-5/Ha_eV ! Boltzmann constant in Ha/K
 real(dp), parameter :: kb_SI=1.380649d-23  ! Boltzmann constant in Joule/K (CODATA 2017 value. )
 real(dp), parameter :: kb_THzK=kb_HaK*Ha_THz ! Boltzmann constant in THz/K
 real(dp), parameter :: amu_emass=1.660538782d-27/9.10938215d-31 ! 1 atomic mass unit, in electronic mass
 real(dp), parameter :: HaBohr3_GPa=Ha_eV/Bohr_Ang**3*e_Cb*1.0d+21 ! 1 Ha/Bohr^3, in GPa
 real(dp), parameter :: Avogadro=6.02214179d23 ! per mole
 real(dp), parameter :: Ohmcm=two*pi*Ha_THz*ninth*ten ! 1 Ohm.cm in atomic units
!real(dp), parameter :: eps0=8.854187817d-12 ! permittivity of free space in F/m
 real(dp), parameter :: eps0=one/(four_pi*0.0000001_dp*299792458.0_dp**2)
 real(dp), parameter :: AmuBohr2_Cm2=e_Cb*1.0d20/(Bohr_Ang*Bohr_Ang)
 real(dp), parameter :: InvFineStruct=137.035999679_dp  ! Inverse of fine structure constant
 real(dp), parameter :: FineStructureConstant=0.0072973525664_dp ! 2014 CODATA value
 real(dp), parameter :: FineStructureConstant2=0.000053251354478_dp ! Square of fine structure constant
 real(dp), parameter :: Sp_Lt_SI=2.99792458d8 ! speed of light in SI
 real(dp), parameter :: Sp_Lt=Sp_lt_SI/2.1876912633d6 ! speed of light in atomic units
 real(dp), parameter :: Time_Sec=2.418884326505D-17 !  Atomic unit of time, in seconds
 real(dp), parameter :: BField_Tesla=4.254383d-6 ! Tesla in a.u.
 real(dp), parameter :: dipole_moment_debye=0.393430307_dp ! Debye unit in a.u.
 real(dp), parameter :: siemens_SI=e_Cb**2 / Ha_J / Time_Sec**2 ! Siemens in SI
 real(dp), parameter :: volt_SI=Ha_J/e_Cb ! Volt in SI
!EB suppress *0.5_dp  ! Atomic unit of induction field (in Tesla) * mu_B (in atomic units).
 real(dp), parameter :: mu_B_SI=9.274009994D-24   ! Bohr magneton in SI
 real(dp), parameter :: mu_B = 0.5_dp             ! Bohr magneton in atomic units

!Complex constants
 complex(dpc), parameter :: czero=(0._dp,0._dp)
 complex(dpc), parameter :: cone =(1._dp,0._dp)
 complex(dpc), parameter :: j_dpc=(0._dp,1.0_dp)

!Pauli matrix
 complex(dpc), parameter :: pauli_mat(2,2,0:3) = reshape([cone,czero,czero,cone, &
&                                                         czero,cone,cone,czero,&
&                                                         czero,j_dpc,-j_dpc,czero,&
&                                                         cone,czero,czero,-cone], [2,2,4])

!Character constants
 character(len=1), parameter :: ch10 = char(10)
 character(len=fnlen),parameter :: ABI_NOFILE="__None__"

 ! File used to dump the error message in m_error.
 ! Extremely useful when we run on many CPUs since logging, in this case, is automatically disabled
 ! As a consequence, we get error messages in the main log only if the problem is encoutered by the master node!
 ! Note that the file is removed in xmpi_init (if present).
 character(len=fnlen),parameter :: ABI_MPIABORTFILE="__ABI_MPIABORTFILE__"

 ! Error codes used by the bindings.
 integer, parameter, public :: AB7_NO_ERROR                 =  0
 integer, parameter, public :: AB7_ERROR_OBJ                =  1
 integer, parameter, public :: AB7_ERROR_ARG                =  2
 integer, parameter, public :: AB7_ERROR_INVARS_ATT         =  3
 integer, parameter, public :: AB7_ERROR_INVARS_ID          =  4
 integer, parameter, public :: AB7_ERROR_INVARS_SIZE        =  5
 integer, parameter, public :: AB7_ERROR_SYM_NOT_PRIMITIVE  =  6
 integer, parameter, public :: AB7_ERROR_SYM_BRAVAIS_XRED   =  7
 integer, parameter, public :: AB7_ERROR_MIXING_ARG         =  8
 integer, parameter, public :: AB7_ERROR_MIXING_CONVERGENCE =  9
 integer, parameter, public :: AB7_ERROR_MIXING_INTERNAL    = 10
 integer, parameter, public :: AB7_ERROR_MIXING_INC_NNSLOOP = 11

! Values of optdriver corresponding to the different run-levels.
 integer, parameter, public :: RUNL_GSTATE     = 0
 integer, parameter, public :: RUNL_RESPFN     = 1
 integer, parameter, public :: RUNL_SCREENING  = 3
 integer, parameter, public :: RUNL_SIGMA      = 4
 integer, parameter, public :: RUNL_NONLINEAR  = 5
 integer, parameter, public :: RUNL_EPH        = 7
 integer, parameter, public :: RUNL_WFK        = 8
 integer, parameter, public :: RUNL_GWLS       = 66
 integer, parameter, public :: RUNL_BSE        = 99 !9
 integer, parameter, public :: RUNL_LONGWAVE   = 10 

 ! Integer flags defining the task to be performed in wfk_analyze
 integer,public,parameter :: WFK_TASK_NONE      = 0
 integer,public,parameter :: WFK_TASK_FULLBZ    = 1
 integer,public,parameter :: WFK_TASK_CLASSIFY  = 2
 integer,public,parameter :: WFK_TASK_PAW_AEPSI = 3
 integer,public,parameter :: WFK_TASK_EINTERP   = 4
 integer,public,parameter :: WFK_TASK_DDK       = 5
 integer,public,parameter :: WFK_TASK_DDK_DIAGO = 6
 integer,public,parameter :: WFK_TASK_KPTS_ERANGE= 8

! Flags defining the method used for performing IO (input variable iomode)
 integer, parameter, public :: IO_MODE_FORTRAN_MASTER = -1
 integer, parameter, public :: IO_MODE_FORTRAN        =  0
 integer, parameter, public :: IO_MODE_MPI            =  1
 integer, parameter, public :: IO_MODE_NETCDF         =  2 ! Only for legacy code, should not be used for new implementations.
 integer, parameter, public :: IO_MODE_ETSF           =  3

! FFT libraries (correspond to fftalga = ngfft(7)/100)
 integer,parameter,public :: FFT_SG     = 1
 integer,parameter,public :: FFT_FFTW3  = 3
 integer,parameter,public :: FFT_SG2002 = 4
 integer,parameter,public :: FFT_DFTI   = 5

! Parameters for non-local algorithm (were previously stored in nloalg(3) and nloalg(4)
  integer,parameter,public :: NLO_MBLKPW = 199
  integer,parameter,public :: NLO_MINCAT = 10

! Parameter to compute the maximum index of the perturbation
  integer,parameter,public :: MPERT_MAX = 8


!Parameters for LOG/STATUS files treatment
!This variables tell the code if some lines have to be written in a LOG/STATUS file
 logical, public, save :: do_write_log   =.true.
 logical, public, save :: do_write_status=.true.
! Max. numbers of CPU core for the writing of LOG/STATUS file for each CPU
! (if more than NPROC_NO_EXTRA_LOG cpu core are used, no *_LOG_Pxxx is written;
!  the same for the *_STATUS_Pxxx file)
 integer, parameter, public :: NPROC_NO_EXTRA_LOG    = 2  !@WC
 integer, parameter, public :: NPROC_NO_EXTRA_STATUS = 2  !@WC
!Name of the file that (if present in current directory)
!will avoid creation of LOG/STATUS files
 character(len=fnlen),parameter :: ABI_NO_LOG_FILE="_NOLOG"
!Name of the file that (if present in current directory)
!will enforce creation of LOG/STATUS files
 character(len=fnlen),parameter :: ABI_ENFORCE_LOG_FILE="_LOG"
!Name of the file that (if present in current directory)
!will enforce creation of LOG file only for master proc
 character(len=fnlen),parameter :: ABI_MAIN_LOG_FILE="_MAINLOG"

! Arrays
 integer,parameter :: identity_3d(3,3) = reshape([1,0,0,0,1,0,0,0,1], [3,3])
 integer,parameter :: inversion_3d(3,3) = reshape([-1,0,0,0,-1,0,0,0,-1], [3,3])

!A collection of small datatypes for ragged arrays
!A small datatype for ragged real 1D-arrays
 type coeff1_type
  real(dp), allocatable :: value(:)
 end type coeff1_type
!A small datatype for ragged integer 1D-arrays
 type coeffi1_type
  !integer :: size
  integer, allocatable :: value(:)
 end type coeffi1_type
!A small datatype for ragged integer 2D-arrays
 type coeffi2_type
  integer :: size
  integer, allocatable :: value(:,:)
 end type coeffi2_type
!A small datatype for ragged real 2D-arrays
 type coeff2_type
  real(dp), allocatable :: value(:,:)
 end type coeff2_type
!A small datatype for ragged complex 2D-arrays
 type coeff2c_type
  complex(dpc), allocatable :: value(:,:)
 end type coeff2c_type
!A small datatype for ragged real 3D-arrays
 type coeff3_type
  real(dp), allocatable :: value(:,:,:)
 end type coeff3_type
!A small datatype for ragged real 4D-arrays
 type coeff4_type
  real(dp), allocatable :: value(:,:,:,:)
 end type coeff4_type
!A small datatype for ragged real 5D-arrays
 type coeff5_type
  real(dp), allocatable :: value(:,:,:,:,:)
 end type coeff5_type
!A small datatype for ragged real 6D-arrays
 type coeff6_type
  real(dp), allocatable :: value(:,:,:,:,:,:)
 end type coeff6_type
!A small datatype for ragged real 7D-arrays.
 type coeff7_type
  real(dp), allocatable :: value(:,:,:,:,:,:,:)
 end type coeff7_type

CONTAINS  !==============================================================================
!!***

!!****f* defs_basis/abi_log_status_state
!! NAME
!!  abi_log_status_state
!!
!! FUNCTION
!!  Change values of do_write_log and do_write_status flags.
!!  These flags tell the code to write (or not) a LOG/STATUS file.
!!
!! INPUTS
!!  new_do_write_log=new value for do_write_log
!!  new_do_write_status=new value for do_write_status
!!
!! PARENTS
!!      iofn1,m_argparse
!!
!! CHILDREN
!!
!! SOURCE

 subroutine abi_log_status_state(new_do_write_log,new_do_write_status)

!Arguments ------------------------------------
!scalars
 logical,optional,intent(in) :: new_do_write_log,new_do_write_status
!Local variables ------------------------------

!************************************************************************

 if (PRESENT(new_do_write_log))    do_write_log   =new_do_write_log
 if (PRESENT(new_do_write_status)) do_write_status=new_do_write_status

 end subroutine abi_log_status_state
!!***

!----------------------------------------------------------------------

!!****f* defs_basis/abi_io_redirect
!! NAME
!!  abi_io_redirect
!!
!! FUNCTION
!!  Redirect unit numbers (and|or) change the MPI communicator for the IO (output and log file).
!!  This routine can be used in client code (e.g. bigdft)
!!  that wants to call the abinit routines packed in an external library.
!!
!! INPUTS
!!  new_ab_out=new value for output file unit
!!  new_std_out=new value for standard output unit
!!  new_io_comm=new value for IO MPI communicator
!!
!! PARENTS
!!      abinit,aim,anaddb,band2eps,bsepostproc,conducti,cut3d,driver
!!      dummy_tests,fftprof,fold2Bloch,initmpi_world,ioprof,lapackprof
!!      m_io_redirect,macroave,memory_eval,mpi_setup,mrgddb,mrgdv,mrggkk,mrgscr
!!      multibinit,optic,ujdet,vdw_kernelgen
!!
!! CHILDREN
!!
!! SOURCE

 subroutine abi_io_redirect(new_ab_out,new_std_out,new_io_comm)

!Arguments ------------------------------------
!scalars
 integer,optional,intent(in) :: new_std_out,new_ab_out,new_io_comm

!************************************************************************

 if (PRESENT(new_ab_out))  ab_out  = new_ab_out
 if (PRESENT(new_std_out)) std_out = new_std_out
 if (PRESENT(new_io_comm)) abinit_comm_output = new_io_comm

 end subroutine abi_io_redirect
!!***

!----------------------------------------------------------------------

!!****f* defs_basis/print_kinds
!! NAME
!! print_kinds
!!
!! FUNCTION
!! Prints info on the basic data types, e.g. kind, precision...
!!
!! INPUTS
!!   unit = Unit number for output file.
!!
!! OUTPUT
!!   Only printing.
!!
!! PARENTS
!!      abinit,leave_new,m_argparse
!!
!! CHILDREN
!!
!! SOURCE

 subroutine print_kinds(unit)

!Arguments-------------------------------------
!scalars
 integer,optional,intent(in) :: unit

!Local variables-------------------------------
!scalars
 integer :: my_unt

 ! *********************************************************************

  my_unt=std_out; if (PRESENT(unit)) my_unt = unit

  write(my_unt,'(a)')' DATA TYPE INFORMATION: '

  write(my_unt,'(a,/,2(a,i6,/),2(a,e15.8e3,/),a,e15.8e3)')&
    ' REAL:      Data type name: REAL(DP) ',&
    '            Kind value: ',KIND(0.0_dp),&
    '            Precision:  ',PRECISION(0.0_dp),&
    '            Smallest nonnegligible quantity relative to 1: ',EPSILON(0.0_dp),&
    '            Smallest positive number:                      ',TINY(0.0_dp),&
    '            Largest representable number:                  ',HUGE(0.0_dp)

  write(my_unt,'(a,/,2(a,i0,/),a,i0)')&
    ' INTEGER:   Data type name: INTEGER(default) ', &
    '            Kind value: ',KIND(0),              &
    '            Bit size:   ',BIT_SIZE(0),          &
    '            Largest representable number: ',HUGE(0)

  write(my_unt,'(a,/,a,i0)')&
    ' LOGICAL:   Data type name: LOGICAL ',&
    '            Kind value: ',KIND(.TRUE.)

  write(my_unt,'(2a,i0)')&
   ' CHARACTER: Data type name: CHARACTER ',&
   '            Kind value: ',KIND('C')

end subroutine print_kinds
!!***

!!****f* defs_basis/str2wfktask
!! NAME
!!  str2wfktask
!!
!! FUNCTION
!!  Convert a string into one of the integer flags WFK_TASK_*
!!  Return WFK_TASK_NONE if string is invalid.
!!
!! PARENTS
!!
!! CHILDREN
!!
!! SOURCE

integer pure function str2wfktask(str) result(wfk_task)

!Arguments ------------------------------------
 character(len=*),intent(in) :: str

!************************************************************************

 select case (str)
 case ("wfk_fullbz")
   wfk_task = WFK_TASK_FULLBZ
 case ("classify")
   wfk_task = WFK_TASK_CLASSIFY
 case ("paw_aepsi")
   wfk_task = WFK_TASK_PAW_AEPSI
 case ("wfk_einterp")
   wfk_task = WFK_TASK_EINTERP
 case ("wfk_ddk")
   wfk_task = WFK_TASK_DDK
 case ("wfk_ddk_diago")
   wfk_task = WFK_TASK_DDK_DIAGO
 case ("wfk_kpts_erange")
   wfk_task = WFK_TASK_KPTS_ERANGE
 case default
   wfk_task = WFK_TASK_NONE
 end select

end function str2wfktask
!!***

!----------------------------------------------------------------------

end module defs_basis
!!***
